10 PRINTCHR$(142)"[147]":POKE53281,4:POKE53280,4:POKE808,254:PRINTCHR$(8)
20 PRINT""
30 PRINT"  [213][195][195][195][195][195][195][195][195][174] [176][195][174][213][195][195][195][195][195][201][176][195][195][195][195][195][195][195][195][195][195][195][195][174]"
40 PRINT"  [194] [213][195][195][195][195][174] [194] [194] [194][194] [213][195][201] [194][194] [176][195][201] [176][195][195][174] [176][195][189]"
50 PRINT"  [194] [194]    [194] [173][195][189] [194][194] [173][195][189] [194][194] [194] [194] [194]  [194] [194]"
60 PRINT"  [194] [194]    [194] [176][195][174] [194][194] [176][195][174] [194][194] [173][195][203][213][203]  [194] [194]"
70 PRINT"  [194] [202][195][195][195][174][194] [194] [194] [173][189] [194] [194] [173][189] [176][201] [202][201]  [194] [194]"
80 PRINT"  [202][195][195][195][195][195][189][173][195][189] [173][195][195][195][195][189] [173][195][195][195][195][189][173][195][195][189]  [173][195][189]":PRINT:PRINT
90 PRINT"        [176][195][195][195][195][195][195][195][195][174] [176][195][174][176][195][195][195][195][201][176][195][174]"
92 PRINT"        [194] [176][195][201] [176][174] [194] [194] [194][194] [176][201] [194][194] [194]"
94 PRINT"        [194] [194] [194] [194][194] [194] [194] [194][194] [194][194] [194][194] [194]"
95 PRINT"        [194] [173][195][203][213][203][194] [194] [194] [194][194] [194][194] [194][194] [194]"
96 PRINT"        [194] [176][201] [202][201][194] [202][195][203] [173][189] [194][194] [173][203] [194]"
97 PRINT"        [173][195][189][173][195][195][189][202][195][195][195][195][195][195][195][195][189][173][195][195][195][195][203]"
98 PRINT:PRINT:PRINT:PRINT
99 PRINT"[144]         1990 GESCHRIEBEN VON":PRINT:PRINT
100 PRINT"[158]              MR. JOKER"
110 FORX=1TO1500:NEXTX
120 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
140 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
150 TU=0:A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:AL=(A+B+C+D+E+F+G+H)*1
160 V=0:A$="UNBESETZT":B$="UNBESETZT":C$="UNBESETZT":D$="UNBESETZT"
170 E$="UNBESETZT":F$="KEINER":G$="KEINE":H$="KEINE"
180 GL=30000:MN=0:UR=0:FT=0:EP=0
185 PRINT"[147][212][197][216][212]-[199][193][205][197] [201][201]: [195][200][193][210][212][160][210][213][206]"
190 PRINT" [215]RITTEN BY [205]R. [202]OKER 1990":PRINT" [201]MPROVED BY [202]ACK THE [210]APPER 1993"
195 INPUT" [215]IE SOLL [201]HRE [194]AND HEISSEN";NE$
200 UR=INT(1000*RND(1))+1
210 IF UR<400 THEN GOTO 200
220 IF UR>800 THEN GOTO 240
230 PRINT:PRINT" [211]IE BEKOMMEN EINEN [213]EBUNGSRAUM FUER"
235 PRINT:PRINT UR;"$ IM [205]ONAT!":GOTO250
240 PRINT:PRINT" [211]IE BEKOMMEN EINE [213]EBUNGSHALLE FUER"
245 PRINT:PRINT UR;"$ IM [205]ONAT!"
250 PRINT" [215]IEVIELE [202]AHRE MOECHTEN [211]IE SPIELEN?    (0-9)";MZ$
255 GETMZ$:IFMZ$=""THEN255
260 IF MZ$="1"THEN M=12:GOTO1000
270 IF MZ$="2"THEN M=24:GOTO1000
280 IF MZ$="3"THEN M=36:GOTO1000
290 IF MZ$="4"THEN M=48:GOTO1000
300 IF MZ$="5"THEN M=60:GOTO1000
310 IF MZ$="6"THEN M=72:GOTO1000
320 IF MZ$="7"THEN M=84:GOTO1000
830 IF MZ$="8"THEN M=96:GOTO1000
840 IF MZ$="9"THEN M=108:GOTO1000
842 IF MZ$="0"THENPRINT" [196]ANN EBEN NICHT, [204]OSER...":FORX=1TO1500:NEXTX:PRINT"[147]":RUN
900 GOTO255
1000 F=0:F$="KEINER":MN=MN+1:GL=GL-UR
1001 IFGL<-250000THENGOTO40000
1002 IFSC=1THENGOTO50000
1010 PRINT"[147]":PRINT
1020 IF A=0 THEN PRINT" [211]IE HABEN NOCH KEINE/N [211]AENGER/IN!":PRINT
1030 PRINT" [206]EUEN [211]AENGER?"
1040 GETX$:IFX$=""THEN1040
1050 IFX$="N"THEN GOTO 2000
1051 IFX$="J"THEN GOTO 1060
1052 GOTO1040
1060 AB=INT(2*RND(1))+1:BC=INT(13*RND(1))+1
1070 ONAB GOTO1080,1090
1080 ONBC GOTO1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220
1090 ONBC GOTO1230,1240,1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1350
1100 A$="[206]ICK [203]AMEN":A=2:AA=1000:GOTO1900
1110 A$="[202]OHAN [200]OELZEL":A=2:AA=1000:GOTO1900
1120 A$="[196]IANA [210]OSS":A=3:AA=2500:GOTO1900
1130 A$="[194]RUCE [196]ICKINSON":A=4:AA=7000:GOTO1900
1140 A$="[194]ILLY [201]DOL":A=5:AA=4000:GOTO1900
1150 A$="[204]UKE [199]OSS":A=3:AA=4000:GOTO1900
1160 A$="[206]ENEH [195]HERRY":A=3:AA=3000:GOTO1900
1170 A$="[193]NNIE [204]ENNOX":A=3:AA=3000:GOTO1900
1180 A$="[212]ERENCE [212]RENT [196]'[193]RBY":A=2:AA=3000:GOTO1900
1190 A$="[208]ETER [205]AFFAY":A=3:AA=5500:GOTO1900
1200 A$="[204]ISA [211]TANSFIELD":A=4:AA=6200:GOTO1900
1210 A$="[203]YLIE [205]INOUGE":A=4:AA=5000:GOTO1900
1220 A$="[202]ASON [196]ONOVAN":A=3:AA=4300:GOTO1900
1230 A$="[197]ROS [210]AMAZOTTI":A=4:AA=3300:GOTO1900
1240 A$="[211]ANDRA [195]RETU":A=5:AA=4900:GOTO1900
1250 A$="[211]EBASTIAN [194]ACH":A=5:AA=5000:GOTO1900
1260 A$="[202]IMMY [211]OMMERVILLE":A=1:AA=4000:GOTO1900
1270 A$="[208]AULA [193]BDUL":A=5:AA=6000:GOTO1900
1280 A$="[210]OBIN [194]ECK":A=4:AA=5000:GOTO1900
1290 A$="[205]ANDY [215]INTER":A=1:AA=2100:GOTO1900
1300 A$="[195]INDY [204]AUPER":A=5:AA=7200:GOTO1900
1310 A$="[203]IM [215]ILDE":A=4:AA=4800:GOTO1900
1320 A$="[196]AVID [200]ASSELHOFF":A=1:AA=1000:GOTO1900
1330 A$="[196]AVID [199]AHAN":A=5:AA=4300:GOTO1900
1340 A$="[196]AN [200]ARROW":A=4:AA=5000:GOTO1900
1350 A$="[196]ON [202]OHNSON":A=2:AA=8000:GOTO1900
1900 PRINT:PRINT" ";A$;" IST IN [201]HRER [194]AND!":AL=A
1910 FORX=1TO1000:NEXTX
2000 PRINT"[147]":PRINT
2010 IF B=0 THEN PRINT" [211]IE HABEN NOCH KEINEN [199]ITARRISTEN!":PRINT
2020 PRINT" [206]EUEN [199]ITARRISTEN?"
2030 GETX$:IFX$=""THEN 2030
2040 IFX$="N"THEN GOTO3000
2041 IFX$="J"THENGOTO2050
2042 GOTO2030
2050 CD=INT(12*RND(1))+1
2060 ONCD GOTO 2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210
2100 B$="[217]NGWIE [205]ALMSTEEN":B=5:BB=4900:GOTO2900
2110 B$="[197]RIC [195]LAPTON":B=5:BB=10000:GOTO2900
2120 B$="[193]NDREW [195]OYNE":B=2:BB=3000:GOTO2900
2130 B$="[195]HRIS [211]TEIN":B=3:BB=2300:GOTO2900
2140 B$="[212]HOMAS [211]CHIER":B=2:BB=1900:GOTO2900
2150 B$="[208]ER [199]ESSLE":B=4:BB=4100:GOTO2900
2160 B$="[202]OE [205]C[201]NTYRE":B=1:BB=1900:GOTO2900
2170 B$="[202]OHN [211]PINKS":B=4:BB=6200:GOTO2900
2180 B$="[205]ARK [203]NOPFLER":B=5:BB=3900:GOTO2900
2190 B$="[199]ARY [205]OORE":B=5:BB=9300:GOTO2900
2200 B$="[212]REVOR [211]TEEL":B=2:BB=2300:GOTO2900
2210 B$="[210]ICHIE [211]AMBORA":B=5:BB=4900:GOTO2900
2900 PRINT:PRINT" ";B$;" IST IN [201]HRER [194]AND!":AL=A+B
2910 FORX=1TO1000:NEXTX
3000 PRINT"[147]":PRINT
3010 IF C=0 THEN PRINT" [211]IE HABEN NOCH KEINEN [194]ASSISTEN!":PRINT
3020 PRINT" [206]EUEN [194]ASSISTEN?"
3030 GETX$:IFX$=""THEN3030
3031 IFX$="J"THENGOTO3050
3040 IFX$="N"THEN GOTO 4000
3042 GOTO3030
3050 DE=INT(9*RND(1))+1
3060 ONDE GOTO 3100,3110,3120,3130,3140,3150,3160,3170,3180
3100 C$="[206]ORMA [195]OOK":C=3:CC=2900:GOTO3900
3110 C$="[202]OHANNES [211]CHAEFER":C=4:CC=3800:GOTO3900
3120 C$="[205]ARCO [204]IEBING":C=3:CC=2900:GOTO3900
3130 C$="[200]AGEN [204]IEBING":C=2:CC=2400:GOTO3900
3140 C$="[212]ONY [194]OWERS":C=5:CC=4900:GOTO3900
3150 C$="[212]ILMAN [213]HRMACHER":C=1:CC=3000:GOTO3900
3160 C$="[212]ONY [204]EWIS":C=3:CC=3000:GOTO3900
3170 C$="[202]OHNNIE [195]HRISTO":C=2:CC=2400:GOTO3900
3180 C$="[195]HRISTOPH [203]AISER":C=2:CC=2100:GOTO3900
3900 PRINT:PRINT" ";C$;" IST IN [201]HRER [194]AND!":AL=A+B+C
3910 FORX=1TO1000:NEXTX
4000 PRINT"[147]":PRINT
4010 IF D=0 THEN PRINT" [211]IE HABEN NOCH KEINEN [203]EYBOARDER!":PRINT
4020 PRINT" [206]EUEN [203]EYBOARDER?"
4030 GETX$:IFX$=""THEN4030
4032 IFX$="J"THENGOTO4050
4040 IFX$="N"THEN GOTO 5000
4042 GOTO4030
4050 EF=INT(13*RND(1))+1
4060 ONEF GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190,4200,4210,4220
4100 D$="[208]AUL [215]ALDEN":D=4:DD=4600:GOTO4900
4110 :D$="[205]ICHAEL [208]. [211]ZUMOWSKI":D=2:DD=2000:GOTO4900
4120 D$="[211]YDNEY [217]OUNGBLOOD":D=3:DD=4100:GOTO4900
4130 D$="[199]ERD [196]RNEK":D=3:DD=2100:GOTO4900
4140 D$="[210]ICHARD [205]ARX":D=5:DD=4700:GOTO4900
4150 D$="[198]RITZ [205]C[201]NTYRE":D=4:DD=5000:GOTO4900
4160 D$="[202]ORDAN [203]NIGHT":D=5:DD=6200:GOTO4900
4170 D$="[205]IKE [211]TAAB":D=5:DD=7900:GOTO4900
4180 D$="[212]HOMAS [193]NDERS":D=1:DD=100:GOTO4900
4190 D$="[204]OUIS [207]BERLAENDER":D=3:DD=3000:GOTO4900
4200 D$="[195]HRIS [204]OWE":D=4:DD=4800:GOTO4900
4210 D$="[196]AVID [194]RYAN":D=5:DD=4000:GOTO4900
4220 D$="[193]NDY [194]ELL":D=3:DD=2900:GOTO4900
4900 PRINT:PRINT" ";D$;" IST IN [201]HRER [194]AND!":AL=A+B+C+D
4910 FORX=1TO1000:NEXTX
5000 PRINT"[147]":PRINT
5010 IF E=0 THEN PRINT" [211]IE HABEN NOCH KEINEN [196]RUMMER!":PRINT
5020 PRINT" [206]EUEN [196]RUMMER?"
5030 GETX$:IFX$=""THEN5030
5032 IFX$="J"THENGOTO5050
5040 IFX$="N"THEN GOTO 6000
5044 GOTO5030
5050 FG=INT(13*RND(1))+1
5060 ONFG GOTO 5100,5110,5120,5130,5140,5150,5160,5170,5180,5190,5200,5210,5220
5100 E$="[208]HIL [195]OLLINS":E=5:EE=5100:GOTO5900
5110 E$="[200]ANSI [194]EHRENDT":E=3:EE=4100:GOTO5900
5120 E$="[196]ARRYL [211]IMS":E=2:EE=1800:GOTO5900
5130 E$="[210]AINER [211]CHUHMANN":E=1:EE=500:GOTO5900
5140 E$="[205]ICHAEL [200]IBSCH":E=4:EE=5300:GOTO5900
5150 E$="[196]IRK [198]ELSENHEIMER":E=3:EE=3200:GOTO5900
5160 E$="[195]HRIS [202]OYCE":E=4:EE=4000:GOTO5900
5170 E$="[193]LAN [202]ACKMAN":E=2:EE=2800:GOTO5900
5180 E$="[208]AUL [210]EAD":E=1:EE=1200:GOTO5900
5190 E$="[205]ILAN [218]EKAVIKA":E=3:EE=3000:GOTO5900
5200 E$="[211]TEFAN [210]AGER":E=2:EE=4000:GOTO5900
5210 E$="[208]ETER [199]ABRIEL":E=5:EE=4000:GOTO5900
5220 E$="[213]WE [200]OFFMANN":E=4:EE=2000:GOTO5900
5900 PRINT:PRINT" ";E$;" IST IN [201]HRER [194]AND!":AL=A+B+C+D+E
5910 FORX=1TO1000:NEXTX
5920 :
6000 PRINT"[147]":PRINT
6005 IF AL>20 THEN GOTO 6010
6007 GOTO7000
6010 PRINT" [205]OECHTEN [211]IE DIESEN [205]ONAT MIT EINEM":PRINT
6020 PRINT" [199]ASTSTAR AUFTRETEN?"
6030 GETX$:IFX$=""THEN6030
6040 IFX$="N"THEN GOTO7000
6043 IFX$="J"THENGOTO6050
6045 GOTO6030
6050 GH=INT(11*RND(1))+1
6060 IF GH<5 THEN PRINT:PRINT" [197]S WILL KEIN [211]TAR MIT [201]HNEN AUFTRETEN!":GOTO6080
6070 GOTO6100
6080 FORX=1TO1500:NEXTX
6090 GOTO7000
6100 HI=INT(11*RND(1))+1
6110 ONHI GOTO 6200,6210,6220,6230,6240,6250,6260,6270,6280,6290,6300
6200 F$="[205]ICHAEL [202]ACKSON":F=20:FF=30000:GOTO6900
6210 F$="[208]RINCE":F=17:FF=22000:GOTO6900
6220 F$="[193]LICE [195]OOPER":F=9:FF=10000:GOTO6900
6230 F$="[196]AVID [194]OWIE":F=7:FF=6000:GOTO6900
6240 F$="[205]ADONNA":F=20:FF=18000:GOTO6900
6250 F$="[212]INA [212]URNER":F=19:FF=20000:GOTO6900
6260 F$="[202]IMMIE [200]ENDRIX":F=10:FF=32000:GOTO6900
6270 F$="[208]AUL [205]C[195]ARTNEY":F=16:FF=18000:GOTO6900
6280 F$="[194]RUCE [211]PRINGSTEEN":F=18:FF=13000:GOTO6900
6290 F$="[213]2":F=20:FF=12000:GOTO6900
6300 F$="[205]ICHAEL [211]CHENKER":F=15:FF=7000:GOTO6900
6900 PRINT:PRINT" ";F$;" IST DIESEM [205]ONAT "
6910 PRINT:PRINT" [201]HR [199]ASTSTAR!":AL=A+B+C+D+E+F
6920 FORX=1TO1500:NEXTX
7000 PRINT"[147]":PRINT
7010 IF G=1 THEN GOTO7500
7020 PRINT" [205]OECHTEN [211]IE [212]ROMPETEN SPIELEN LASSEN?"
7030 GETX$:IFX$=""THEN7030
7040 IFX$="J"THEN G=1:GOTO7500
7041 IFX$="N"THENGOTO7500
7042 GOTO7040
7500 IFH=1THEN GOTO8000
7510 PRINT:PRINT" [205]OECHTEN [211]IE [194]ACKGROUND-[199]ESANG HABEN?"
7520 GETX$:IFX$=""THEN7520
7521 IFX$="N"THENGOTO8000
7530 IFX$="J"THEN H=1:GOTO8000
7532 GOTO7520
8000 IF AL<29 THEN GOTO 10000
8010 PRINT"[147]":PRINT
8020 PRINT" [215]IEVIELE [211]INGLES MOECHTEN [211]IE DRUCKEN?":PRINT
8030 PRINT" [196]RUECKEN [211]IE: 1 FUER 10.000 $,":PRINT
8040 PRINT"               2 FUER 20.000 $,":PRINT
8050 PRINT"               3 FUER 30.000 $,":PRINT
8051 PRINT"               4 FUER 40.000 $,":PRINT
8052 PRINT"               5 FUER 50.000 $,":PRINT
8053 PRINT"               6 FUER 60.000 $,":PRINT
8054 PRINT"               7 FUER 70.000 $,":PRINT
8055 PRINT"               8 FUER 80.000 $,":PRINT
8060 PRINT"               9 FUER 90.000 $.":PRINT
8070 GETQ$:IFQ$=""THEN8070
8080 IF Q$="1"THEN SA=10000:GOTO8900
8090 IF Q$="2"THEN SA=20000:GOTO8900
8100 IF Q$="3"THEN SA=30000:GOTO8900
8110 IF Q$="4"THEN SA=40000:GOTO8900
8120 IF Q$="5"THEN SA=50000:GOTO8900
8130 IF Q$="6"THEN SA=60000:GOTO8900
8140 IF Q$="7"THEN SA=70000:GOTO8900
8150 IF Q$="8"THEN SA=80000:GOTO8900
8160 IF Q$="9"THEN SA=90000:GOTO8900
8170 GOTO8070
8900 PRINT" [196]IE [208]LATTEN WERDEN GEDRUCKT!"
8910 FORX=1TO1000:NEXTX
9000 PRINT"[147]":PRINT
9010 PRINT" [205]OECHTEN [211]IE EIN [214]IDEO DREHEN?"
9020 GETX$:IFX$=""THEN9020
9025 IFX$="J"THENGOTO9040
9030 IFX$="N"THENGOTO10000
9032 GOTO9020
9040 IF V>9 THEN PRINT" [193]US ZEITLICHEN [199]RUENDEN NICHT MOEGLICH!"V=9:GOTO9980
9050 V=V+1
9060 PRINT" [211]IE DREHEN AB JETZT [201]HR";V;"[157]. [214]IDEO!"
9980 FORX=1TO1500:NEXTX
10000 IF FT=1 THEN GOTO 11000
10010 IFAL<33 THEN GOTO 11000
10020 PRINT"[147]":PRINT:FT=1
10030 PRINT" [211]IE HABEN HEUTE [201]HREN ERSTEN":PRINT
10040 PRINT" [198]ERNSEHAUFTRITT!":PRINT
10050 IJ=INT(5*RND(1))+1
10060 ONIJ GOTO 10070,10080,10090,10100,10110
10070 PRINT" [211]IE TRETEN IN '[210]AGAZZI' ([210][212][204]) AUF, FUER"
10075 PRINT" 6.000 $.":GL=GL+6000:GOTO10900
10080 PRINT" [205][212][214] ZAHLT IHNEN 18.000 $.":GL=GL+18000:GOTO10900
10090 PRINT" [196]AS [218][196][198] ZAHLT FUER EINEN [193]UFTRITT IN":PRINT
10095 PRINT" '[215]ETTEN DASS...?' 7.500 $.":GL=GL+7500:GOTO10900
10100 PRINT" [212]ELE 5 LAESST [211]IE IN [208].[207].[208] AUFTRETEN.":PRINT
10105 PRINT" [211]IE VERDIENEN SICH 13.500 $.":GL=GL+13500:GOTO10900
10110 PRINT" [196]ER [196][196][210]-[211]ENDER [196][198][198] ZAHLT 4.800 $.":GL=GL+4800:GOTO10900
10900 FORX=1TO2000:NEXTX
11000 IF EP>0 THEN GOTO11100
11010 IF AL<42 THEN GOTO 11100
11020 PRINT"[147]":PRINT:EP=EP+1
11030 PRINT" [211]IE BRINGEN [201]HRE 1. [204][208] AUF DEN [205]ARKT."
11040 ZF=INT(10*RND(1))+1
11050 BU=INT(29*RND(1))+1
11060 SC=100-AL-ZF-BU
11070 LP=(100-SC)*1000
11080 FORX=1TO1000:NEXTX
11100 IF TU>0 THEN GOTO12000
11110 IF AL<43 THEN GOTO12000
11120 PRINT"[147]":PRINT:TU=TU+1
11130 PRINT" [211]IE GEHEN AUF [212]OUR!"
11140 TE=INT(60*RND(1))+1
11150 TN=TE*1000
11160 TA=TE*100
11170 FORX=1TO1000:NEXTX
12000 PRINT"[147]":PRINT
12010 PRINT" [213]EBERSICHT DER [194]AND '";NE$;"':":PRINT
12020 PRINT:PRINT" [211]AENGER/IN       : ";A$
12030 PRINT:PRINT" [199]ITARRIST        : ";B$
12040 PRINT:PRINT" [194]ASSIST          : ";C$
12050 PRINT:PRINT" [203]EYBOARD/[203]LAVIER : ";D$
12060 PRINT:PRINT" [196]RUMMER          : ";E$
12070 PRINT:PRINT" [211]PECIALGAST      : ";F$
12073 :
12075 PRINT:PRINT" [194]ANDDURCHSCHNITT :";A+B+C+D+E+F
12080 IF G=1 THEN PRINT:PRINT" [194]LASINSTRUMENTE"
12090 IF H=1 THEN PRINT:PRINT" [194]ACKGROUND-[199]ESANG"
12100 GETX$:IFX$=""THEN12100
12110 PRINT"[147]":PRINT
12115 OK=INT(4000*RND(1))+1
12117 SV=SA-(OK*(A+B))
12120 IF AL<9 THEN GOTO12400
12125 PRINT" [197]INNAHMEN":PRINT:PRINT
12127 IF AL<29 THEN GOTO 12200
12130 PRINT" [211]INGLE-[214]ERKAUF:";SV;"$.":GL=GL+SV:PRINT
12200 IFAL<24 THEN GOTO 12400
12210 IF EP<>1 THEN GOTO 12300
12220 PRINT" [204][208]-[214]ERKAUF:";LP;"$.":GL=GL+LP:PRINT
12300 IFAL<30 THEN GOTO12400
12310 IF TU<>1 THEN GOTO12400
12320 PRINT" [212]OURNEE-[214]ERDIENST:";TN;"$.":GL=GL+TN:PRINT
12400 IF V=0 THEN GOTO12900
12405 IF V=0 THEN GOTO12900
12410 VD=(A+B+C+D+E)*3000
12420 PRINT" [214]IDEO-[214]ERDIENST:";VD;"$.":GL=GL+VD:PRINT
12900 GETX$:IFX$=""THEN12900
13000 PRINT"[147]":PRINT
13010 PRINT" [193]USGABEN":PRINT:PRINT
13020 BAG=AA+BB+CC+DD+EE+FF+GG+HH
13030 PRINT" [194]AND-[193]USGABEN:";BAG;"$.":GL=GL-BAG:PRINT
13040 VK=V*1034
13050 IF V=0 THEN GOTO13070
13060 PRINT" [214]IDEO-[203]OSTEN:";VK;"$.":GL=GL-VK:PRINT
13070 SK=V*2798:IFAL<9THEN GOTO 13090
13080 PRINT" [211]INGLE-[203]OSTEN:";SA;"$.":GL=GL-SA:PRINT
13090 GETX$:IFX$=""THEN13090
13100 PRINT"[147]":PRINT
13110 PRINT" [193]LLGEMEINES":PRINT:PRINT:ZF=INT(24*RND(1))+1
13120 SC=100-AL-ZF-(V*9):IFSC<2THENSC=1
13130 PRINT" [211]INGLE-[195]HART-[208]OSITION:";SC:PRINT
13140 PRINT" [211]PIELMONAT:";MN:PRINT
13150 PRINT" ---------------------------------------"
13160 :
13165 IF GL<15000 THEN PRINT:PRINT" [211]IE BEKOMMEN 10.000 $ [213]NTERSTUETZUNG!"
13166 IF SC<11 THEN PRINT:PRINT" 100.000$ [199]AGE FUER [215]ERBUNG.":GL=GL+100000
13167 IF SC=1 THEN PRINT:PRINT" [201]HR [206]UMMER-1-[200]IT VERDIENT 500.000 $!"
13168 IF SC=1 THEN GL=GL+500000
13169 PRINT:PRINT" [203]ONTOSTAND:";GL;"$."
13170 GETX$:IFX$=""THEN13170
13180 PRINT"[147]":PRINT:IFGL<-250000THENGOTO40000
13190 IF MN=M THEN GOSUB 20000
13195 IF MN=150 THEN GOTO30000
13200 AL=0:IF GL<15000 THEN GL=GL+10000:GOTO1000
20000 IFJ1=10THENGOTO1000
20010 PRINT"[147]":PRINT:PRINT" [196]IE [202]AHRE SIND ZUENDE, MOECHTEN [211]IE":PRINT:J1=10
20020 PRINT" TROTZDEM WEITERSPIELEN?"
20030 GETX$:IFX$=""THEN20030
20040 IFX$="N"THENGOTO50006
20042 IFX$="J"THENGOTO20150
20043 GOTO20030
20050 REM ***************************
20060 REM * ALL CREDITS BY MR.JOKER *
20070 REM *   (C)COPYRIGHT 1990     *
20080 REM *COPY GAME TO ALL FRIENDS *
20090 REM *  FOR CONTACTS WRITE TO  *
20100 REM *    TOEBINGSTRASSE 3     *
20110 REM *     2120 LUENEBURG      *
20120 REM *   KENNWORT: CHARTRUN    *
20130 REM ***************************
20140 :
20150 GOTO1000
30000 PRINT"[147]":PRINT
30010 PRINT" [196]AS [211]PIEL IST ZUENDE, DENN DIE [194]AND"
30020 PRINT:PRINT" WIRD ZU ALT!";GL"$."
30030 PRINT:PRINT" HABEN [211]IE GEMACHT! [196]IE [194]AND ":PRINT
30040 PRINT" '";NE$;"' LOEST SICH AUF UND WIRD":PRINT
30050 PRINT" [199]ESCHICHTE. [193]M BESTEN, [211]IE KAUFEN":PRINT
30060 PRINT" SICH EINEN [208]RIVATGOLFPLATZ IN DER":PRINT
30070 PRINT" [196]RITTEN [215]ELT ODER SO!"
30090 GOTO50005
40000 PRINT"[147] [196]AS IST DAS [197]NDE [201]HRER [194]AND, DENN [211]IE":PRINT
40001 PRINT" SIND HOCHVERSCHULDET!":PRINT
40002 PRINT" [196]A KANN MAN LEIDER NICHTS MACHEN..."
40003 GOTO50005
50000 PRINT"[147] [211]IE HABEN ES GESCHAFFT! [211]IE HABEN [201]HRE"
50001 PRINT" [194]AND AUF DEN ERSTEN [208]LATZ GEBRACHT!"
50002 PRINT" [211]IE SIND JETZT BERUEHMT, BEGEHRT UND"
50003 PRINT" REICH."
50004 PRINT" [211]IE HABEN DAS [211]PIEL GEWONNEN!"
50005 GETA$:IFA$=""THEN50005
50006 SYS64738